home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / guidexv / gfm.G < prev    next >
Encoding:
Text File  |  1992-07-14  |  7.4 KB  |  266 lines
  1. ;GIL-3
  2. ;    @(#)gfm.G    2.13 91/10/16 Copyright 1990 Sun Microsystems
  3. (
  4. (
  5.     :type                   :popup-window
  6.     :name                   popup
  7.     :owner                  nil
  8.     :width                  313
  9.     :height                 306
  10.     :background-color       ""
  11.     :foreground-color       ""
  12.     :label                  "File Chooser"
  13.     :label-type             :string
  14.     :initial-state          :invisible
  15.     :show-footer            t
  16.     :resizable              t
  17.     :pinned                 nil
  18.     :done-handler           nil
  19.     :event-handler          gfm_resize
  20.     :events                 ()
  21.     :user-data              ()
  22.     :actions                (
  23.         (
  24.         :from                   (popup)
  25.         :when                   (AnyEvent )
  26.         :to                     (popup)
  27.         :function_type          CallFunction
  28.         :arg_type               ()
  29.         :action                 (gfm_resize)
  30.         )
  31.     )
  32. )
  33. (
  34.     :type                   :control-area
  35.     :name                   controls
  36.     :owner                  popup
  37.     :help                   "Devguide: File Chooser:
  38.  
  39. Choose a file to be loaded or saved by selecting
  40. it in the scrolling list and pressing the load/save
  41. button."
  42.     :x                      0
  43.     :y                      0
  44.     :width                  313
  45.     :height                 306
  46.     :background-color       ""
  47.     :foreground-color       ""
  48.     :initial-state          :active
  49.     :show-border            nil
  50.     :menu                   nil
  51.     :event-handler          nil
  52.     :events                 ()
  53.     :user-data              ()
  54.     :actions                ()
  55. )
  56. (
  57.     :type                   :text-field
  58.     :name                   directory
  59.     :owner                  controls
  60.     :help                   "Directory text field:
  61.  
  62. The Directory text field displays the name
  63. of the current directory whose contents are
  64. displayed in the scrolling list."
  65.     :x                      10
  66.     :y                      10
  67.     :width                  298
  68.     :height                 15
  69.     :value-x                84
  70.     :value-y                10
  71.     :value-length           28
  72.     :stored-length          1024
  73.     :rows                   3
  74.     :foreground-color       ""
  75.     :text-type              :alphanumeric
  76.     :label                  "Directory:"
  77.     :label-type             :string
  78.     :layout-type            :horizontal
  79.     :value-underlined       nil
  80.     :initial-value          ""
  81.     :initial-state          :active
  82.     :read-only              t
  83.     :notify-handler         nil
  84.     :event-handler          nil
  85.     :events                 ()
  86.     :user-data              ()
  87.     :actions                ()
  88. )
  89. (
  90.     :type                   :scrolling-list
  91.     :name                   list
  92.     :owner                  controls
  93.     :help                   "File scrolling list:
  94.  
  95. The scrolling list shows all the files available
  96. in the current directory.  Click SELECT on a 
  97. file and choose the Load/Save button or double
  98. click SELECT on a file or directory.  If a 
  99. directory is selected, that directory will be 
  100. opened and the contents will be listed.  Otherwise
  101. the selected file will opened.
  102. "
  103.     :x                      10
  104.     :y                      35
  105.     :width                  275
  106.     :height                 200
  107.     :value-x                10
  108.     :value-y                35
  109.     :rows                   10
  110.     :foreground-color       ""
  111.     :label                  ""
  112.     :title                  ""
  113.     :label-type             :string
  114.     :layout-type            :horizontal
  115.     :read-only              t
  116.     :multiple-selections    nil
  117.     :selection-required     t
  118.     :initial-state          :active
  119.     :droppable              nil
  120.     :default-drop-site      nil
  121.     :menu                   nil
  122.     :notify-handler         gfm_list_proc
  123.     :event-handler          nil
  124.     :events                 ()
  125.     :initial-list-values    ()
  126.     :initial-list-glyphs    ()
  127.     :initial-selections     ()
  128.     :user-data              ()
  129.     :actions                (
  130.         (
  131.         :from                   (popup list)
  132.         :when                   (Notify )
  133.         :to                     (popup list)
  134.         :function_type          CallFunction
  135.         :arg_type               ()
  136.         :action                 (gfm_list_proc)
  137.         )
  138.     )
  139. )
  140. (
  141.     :type                   :text-field
  142.     :name                   file
  143.     :owner                  controls
  144.     :help                   "Name text field:
  145.  
  146. The Name text field displays the name of the
  147. currently selected file or directory.  Enter
  148. the name of a file or directory here and
  149. click SELECT on Load/Save or enter RETURN 
  150. to have that file or directory loaded.
  151. Environment variables and tildes will be
  152. properly expanded."
  153.     :x                      10
  154.     :y                      245
  155.     :width                  290
  156.     :height                 15
  157.     :value-x                60
  158.     :value-y                245
  159.     :value-length           30
  160.     :stored-length          1024
  161.     :rows                   3
  162.     :foreground-color       ""
  163.     :text-type              :alphanumeric
  164.     :label                  "Name:"
  165.     :label-type             :string
  166.     :layout-type            :horizontal
  167.     :value-underlined       t
  168.     :initial-value          ""
  169.     :initial-state          :active
  170.     :read-only              nil
  171.     :notify-handler         gfm_file_notify
  172.     :event-handler          nil
  173.     :events                 ()
  174.     :user-data              ()
  175.     :actions                (
  176.         (
  177.         :from                   (popup file)
  178.         :when                   (Notify )
  179.         :to                     (popup file)
  180.         :function_type          CallFunction
  181.         :arg_type               ()
  182.         :action                 (gfm_file_notify)
  183.         )
  184.     )
  185. )
  186. (
  187.     :type                   :group
  188.     :name                   file_list_group
  189.     :x                      10
  190.     :y                      10
  191.     :group-type             :column
  192.     :members                (directory list file )
  193.     :rows                   0
  194.     :row-alignment          :top-edges
  195.     :columns                1
  196.     :column-alignment       :left-edges
  197.     :horizontal-spacing     10
  198.     :vertical-spacing       10
  199.     :anchor-object          nil
  200.     :anchor-point           :north-west
  201.     :reference-point        :north-west
  202.     :horizontal-offset      0
  203.     :vertical-offset        0
  204.     :user-data              ()
  205.     :actions                ()
  206. )
  207. (
  208.     :type                   :button
  209.     :name                   load
  210.     :owner                  controls
  211.     :help                   "The Load button:
  212.  
  213. The Load button (may also be Save, Import, etc)
  214. will load (or save, import, etc) the file or
  215. directory that is currently selected.  Click
  216. SELECT on it to load.
  217. "
  218.     :x                      136
  219.     :y                      280
  220.     :width                  46
  221.     :height                 19
  222.     :constant-width         nil
  223.     :button-type            :normal
  224.     :foreground-color       ""
  225.     :label                  "Load"
  226.     :label-type             :string
  227.     :initial-state          :active
  228.     :menu                   nil
  229.     :notify-handler         gfm_open
  230.     :event-handler          nil
  231.     :events                 ()
  232.     :user-data              ()
  233.     :actions                (
  234.         (
  235.         :from                   (popup load)
  236.         :when                   (Notify )
  237.         :to                     (popup load)
  238.         :function_type          CallFunction
  239.         :arg_type               ()
  240.         :action                 (gfm_open)
  241.         )
  242.     )
  243. )
  244. (
  245.     :type                   :group
  246.     :name                   props_group
  247.     :x                      10
  248.     :y                      10
  249.     :group-type             :column
  250.     :members                (file_list_group load )
  251.     :rows                   0
  252.     :row-alignment          :top-edges
  253.     :columns                1
  254.     :column-alignment       :vertical-centers
  255.     :horizontal-spacing     10
  256.     :vertical-spacing       20
  257.     :anchor-object          controls
  258.     :anchor-point           :north-west
  259.     :reference-point        :north-west
  260.     :horizontal-offset      10
  261.     :vertical-offset        10
  262.     :user-data              ()
  263.     :actions                ()
  264. )
  265. )
  266.